home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / menu / arexx / request.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-04-02  |  624 b   |  24 lines
  1. /* Example of EasyRequester */
  2.  
  3. Call addlib("apig.library",0,-30,0)
  4. Call Addlib("rexxsupport.library",0,-30,0)
  5.  
  6. call set_apig_globals()
  7.  
  8. portname = "easyreq1_port"     
  9. p = openport(portname)  
  10. WaitForPort portname  
  11.  
  12. wintitle = ""
  13. winflags = WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+WINDOWDEPTH+GIMMEZEROZERO
  14. winidcmp = CLOSEWINDOW 
  15.  
  16. win = openwindow(portname,0,0,100,50,2,4,winidcmp,winflags,wintitle,null(),0,0,0)
  17.  
  18. idcmp= ""
  19.  
  20. req = EASYREQUEST(win,"Workbench Designer Menü ","Soll jetzt ein Reset Ausgeführt werden ?","ja|NEIN",null(),idcmp,100)
  21.  
  22. if req=1 THEN ADDRESS COMMAND "WB-Collection-2:c/Reboot"
  23. call CLOSEWINDOW(win)
  24.